﻿Public Class frmAbout

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    End Sub


    Private Sub frmAbout_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim UserIdentityInfo As System.Security.Principal.WindowsIdentity
        UserIdentityInfo = System.Security.Principal.WindowsIdentity.GetCurrent()

        lblVersion.Text = String.Format("Version {0}", My.Application.Info.Version.ToString)
        lblCopyright.Text = "Registered to " & My.User.Name.ToString()
        lblCompany.Text = My.Application.Info.CompanyName


    End Sub

    Private Sub lblHome_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles lblHome.LinkClicked
        System.Diagnostics.Process.Start("http://stopwatch1.codeplex.com/")
    End Sub

    Private Sub lblDonate_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles lblDonate.LinkClicked
        System.Diagnostics.Process.Start("https://www.paypal.com/cgi-bin/webscr?cmd=_donations&business=KyleLeitch%40gmail%2ecom&lc=US&item_name=Kyle%20Leitch&currency_code=USD&bn=PP%2dDonationsBF%3abtn_donateCC_LG%2egif%3aNonHosted")
    End Sub
End Class
